home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / os2 / memsz313.zip / MAGYAR.CMD < prev    next >
OS/2 REXX Batch file  |  1996-03-18  |  3KB  |  150 lines
  1. /* MAGYAR.CMD: A MEMSIZE telepítése magyar nyelven. */
  2.  
  3. '@Echo Off'
  4. 'CHCP 852'
  5.  
  6. /* REXXUTIL betöltése */
  7.  
  8. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  9. Call SysLoadFuncs
  10.  
  11.  
  12. /* Inicializálás */
  13.  
  14. Signal On Failure Name FAILURE
  15. Signal On Halt Name HALT
  16. Signal On Syntax Name SYNTAX
  17.  
  18. Call SysCls
  19. Say 'MEMSIZE telepítése...'
  20. Say ''
  21.  
  22.  
  23. /* Komponens-fájlok létezésének vizsgálata */
  24.  
  25. Language = 'MAGYAR'
  26.  
  27. Result = SysFileTree( 'MEMSIZE.EXE', 'Files', 'F' )
  28. If Files.0 = 0 Then
  29.   Do
  30.   Say 'HIBA: MEMSIZE.EXE nem található!'
  31.   Signal DONE
  32.   End
  33.  
  34. Result = SysFileTree( Language".DLL", 'Files', 'F' )
  35. If Files.0 = 0 Then
  36.   Do
  37.   Say 'Hiba: 'Language'.DLL nem található!'
  38.   Signal DONE
  39.   End
  40.  
  41. Result = SysFileTree( Language".HLP", 'Files', 'F' )
  42. If Files.0 = 0 Then
  43.   Do
  44.   Say 'Hiba: 'Language'.HLP nem található!'
  45.   Signal DONE
  46.   End
  47.  
  48. /* A célalkönyvtár nevének bekérése */
  49.  
  50. Say 'Add meg az alkönyvtár teljes nevét, amelybe a MEMSIZE-ot'
  51. Say '  telepíteni akarod (alapértelmezés: C:\OS2\APPS)! '
  52. Parse Pull Directory
  53. If Directory = "" Then Directory = 'C:\OS2\APPS'
  54.  
  55.  
  56. /* A célalkönyvtár létrehozása, ha szükséges */
  57.  
  58. Result = SysFileTree( Directory, 'Dirs', 'D' )
  59. If Dirs.0 = 0 Then
  60.   Do
  61.   Result = SysMkDir( Directory )
  62.   if Result == 0 Then
  63.     Do
  64.     End
  65.   Else
  66.     Do
  67.     Say 'HIBA: Célalkönyvtár nem hozható létre.'
  68.  
  69.     Signal DONE
  70.     End
  71.   End
  72. Say ''
  73.  
  74.  
  75. /* A célgy√jtï nevének bekérése */
  76.  
  77. Say 'Akarod az Automatikus indítás gy√jtïbe telepíteni? (I/N)'
  78. Pull YesNo
  79. If YesNo = "I" Then
  80.   Do
  81.   Folder = '<WP_START>'
  82.   Say 'Az objektum az Automatikus indítás gy√jtïbe kerül.'
  83.   End
  84. Else
  85.   Do
  86.   Folder = '<WP_DESKTOP>'
  87.   Say 'Az objektum a munkaasztalra kerül.'
  88.   End
  89. Say ''
  90.  
  91.  
  92. /* Régi objektum törlése, ha létezik */
  93.  
  94. Call SysDestroyObject( '<MEMSIZE>' )
  95. Call SysSleep( 5 )
  96.  
  97.  
  98. /* Telepítés elvégzése */
  99.  
  100. Say 'MEMSIZE másolása a(z) ' Directory 'alkönyvtárba...'
  101. Copy MEMSIZE.EXE Directory                  '1>NUL'
  102. Copy Language".DLL" Directory"\MEMSIZE.DLL" '1>NUL'
  103. Copy Language".HLP" Directory"\MEMSIZE.HLP" '1>NUL'
  104. Copy Language".DOC" Directory"\MEMSIZE.DOC" "1>NUL"
  105.  
  106. Result = SysFileTree( "HLP2INF.EXE", 'Files', 'F' )
  107. If Files.0 > 0 Then
  108.    Do
  109.    Result = SysFileTree( Directory"\MEMSIZE.INF", 'Files', 'F' )
  110.    If Files.0 > 0 Then
  111.       Do
  112.       "Erase" Directory"\MEMSIZE.INF"
  113.       End
  114.    "HLP2INF" Directory"\MEMSIZE.HLP"
  115.    End
  116.  
  117. Result = SysFileTree( "SNAPSHOT.EXE", 'Files', 'F' )
  118. If Files.0 > 0 Then
  119.    Do
  120.    Copy "SNAPSHOT.EXE" Directory"\SNAPSHOT.EXE"  '1>NUL'
  121.    End
  122.  
  123. Say 'Programobjektum létrehozása...'
  124. Type = 'WPProgram'
  125. Title = 'System Resources'
  126. Parms = 'OPEN=DEFAULT;MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\MEMSIZE.EXE;STARTUPDIR='Directory';OBJECTID=<MEMSIZE>;NOPRINT=YES;'
  127. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  128.  
  129. If Result = 1 Then
  130.   Say 'Objektum létrehozva!  Kész.'
  131. Else
  132.   Say 'HIBA: Az objektum nem jött létre.'
  133.  
  134. Signal DONE
  135.  
  136. FAILURE:
  137. Say 'REXX hiba.'
  138. Signal DONE
  139.  
  140. HALT:
  141. Say 'REXX leállás.'
  142. Signal DONE
  143.  
  144. SYNTAX:
  145. Say 'REXX szintaktikai hiba.'
  146. Signal DONE
  147.  
  148. DONE:
  149. Exit
  150.